home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pull55.zip / PULLDIR-.PAS < prev    next >
Pascal/Delphi Source File  |  1989-08-24  |  1KB  |  45 lines

  1. { =========================================================================== }
  2. { Pulldir-.pas - Submenu pull-down directory interface.     ver 5.5, 08-24-89 }
  3. {                                                                             }
  4. { Only uses 56 global bytes of data.                                          }
  5. {   Copyright (c) 1987-1989 James H. LeMay, All rights reserved.              }
  6. { =========================================================================== }
  7.  
  8. { R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }         { TP4 directives }
  9. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}    { TP5 directives }
  10.  
  11. {$define UseHelpWndwCode }
  12. {$define UseMsgLineCode }
  13.  
  14. UNIT PullDir;
  15.  
  16. INTERFACE
  17.  
  18. uses
  19.   DOS,Qwik,Wutil,Wndw,Pull;
  20.  
  21. type
  22.   FileNameStr = string[12];
  23.   DirectoryMenuRec = record
  24.     Title:                   string[9];
  25.     MenuLines,
  26.     Row,Col,Rows,Cols,
  27.     HiLiteLine,
  28.     Battr,Wattr,Hattr:       byte;
  29.     Border:                  Borders;
  30.     MsgLineNum, HelpWndwNum: byte
  31.   end;
  32.  
  33. var
  34.   DirectoryMenu: DirectoryMenuRec;
  35.  
  36. const
  37.   FileMask:  FileNameStr = '*.*';
  38.  
  39. procedure PullDirectory (VAR NameToChange: FileNameStr;
  40.                              NameToHiLite: FileNameStr);
  41.  
  42. IMPLEMENTATION
  43.  
  44. END.
  45.